supplied-by
: place  ( caddr u ad -- )    \ As a counted string
   2dup 2>r char+ swap chars move 2r> c!
;

